home *** CD-ROM | disk | FTP | other *** search
/ Saar AMOK 2 / Saar AMOK II - Oktober 1994 (1994)(Kreativ Marketing)(DE)[!][I-7598].iso / disks / 651_700 / 693 / avm / avm1.19.lha / avm-install < prev    next >
Text File  |  1994-04-06  |  4KB  |  186 lines
  1. (welcome "AVM Suite Installation")
  2. (transcript "Installing the AVM Suite...")
  3.  
  4. ; **************************************************************************
  5. ; **************************************************************************
  6. ; **************************************************************************
  7.  
  8. (complete 20)
  9.  
  10. (set @default-dest "Work:AVMSuite")
  11.  
  12. (set avmdest
  13.     (askdir
  14.         (prompt "Where do you want to put the AVM Suite?")
  15.         (help @askdir-help)
  16.         (default @default-dest)
  17.         (newpath)
  18.     )
  19. )
  20.  
  21. (set @default-dest avmdest)
  22.  
  23. (makedir avmdest (infos))
  24.  
  25. (copyfiles
  26.     (prompt "Copying executables, scripts, icons, and documentation...")
  27.     (help @copyfiles-help)
  28.         (source (expandpath ""))
  29.     (dest avmdest)
  30.     (all)
  31. )
  32.  
  33. (makeassign "AVM" avmdest)
  34. (makeassign "AVMREXX" "avm:rexx")
  35. (makeassign "AVMTEMP" "t:")
  36.  
  37. (delete "avm:installer")
  38. (delete "avm:avm-install")
  39. (delete "avm:avm-install.info")
  40.  
  41. (makedir "avm:voices")
  42.  
  43. (complete 75)
  44.  
  45. (set modemtype
  46.     (askchoice
  47.         (prompt "What modem and ROM version do you have?")
  48.         (help @askchoice-help)
  49.         (choices
  50.             "LineLink 144e"
  51.             "MTD Dolphin"
  52.             "ZyXEL 6.01"
  53.             "ZyXEL 6.10"
  54.             "ZyXEL 6.11"
  55.             "ZyXEL 6.11a"
  56.                         "Rockwell based"
  57.                 )
  58.         (default 0)
  59.     )
  60. )
  61.  
  62. (debug modemtype)
  63.  
  64. (if (= modemtype 0)
  65.   (execute "avm:defaultscripts/useLineLink144e")
  66.   (if (= modemtype 1)
  67.     (execute "avm:defaultscripts/useDolphin")
  68.     (if (= modemtype 2)
  69.       (execute "avm:defaultscripts/useZyXEL6.01")
  70.       (if (= modemtype 3)
  71.         (execute "avm:defaultscripts/useZyXEL6.10")
  72.         (if (= modemtype 4)
  73.           (execute "avm:defaultscripts/useZyXEL6.11")
  74.           (if (= modemtype 5)
  75.             (execute "avm:defaultscripts/useZyXEL6.11a")
  76.             (if (= modemtype 6)
  77.               (execute "avm:defaultscripts/useRockwell")
  78.             )
  79.           )
  80.         )
  81.       )
  82.     )
  83.   )
  84. )
  85.  
  86. (complete 80)
  87.  
  88. (set digitizertype
  89.     (askchoice
  90.         (prompt "What type of digitizer do you have?")
  91.         (help @askchoice-help)
  92.         (choices
  93.             "Generic/None"
  94.             "Perfect Sound"
  95.         )
  96.         (default 0)
  97.     )
  98. )
  99.  
  100. (debug digitizertype)
  101.  
  102. (if (= digitizertype 0)
  103.     (execute "avm:defaultscripts/useGenericDigitizer")
  104.     (if (= digitizertype 1)
  105.         (execute "avm:defaultscripts/usePerfectSound")
  106.         (message "Bad Stuff")
  107.     )
  108. )
  109.  
  110. (complete 85)
  111.  
  112. (set alerttype
  113.     (askchoice
  114.         (prompt "How do you want to be informed of new messages?")
  115.         (help @askchoice-help)
  116.         (choices
  117.             "Flashing LED"
  118.             "AmigaDOS Say Command"
  119.                         "Prerecorded Voice"
  120.         )
  121.         (default 0)
  122.     )
  123. )
  124.  
  125. (debug alerttype)
  126.  
  127. (if (= alerttype 0)
  128.     (execute "avm:defaultscripts/useFlashAlert")
  129.     (if (= alerttype 1)
  130.         (execute "avm:defaultscripts/useSayAlert")
  131.                 (if (= alerttype 2)
  132.                      (execute "avm:defaultscripts/useSayAlertPreRec")
  133.                (message "Bad Stuff")
  134.                 )
  135.     )
  136. )
  137.  
  138. (set mybool
  139.   (askbool
  140.     (help @askchoice-help)
  141.     (prompt "Rename old voice files? (highly recommended/harmless)")
  142.     (default 1)
  143.   )
  144. )
  145.  
  146. (if (= mybool 1)
  147.   (execute "avm:renamevoicefiles")
  148. )
  149.  
  150. (set mybool
  151.   (askbool
  152.     (help @askchoice-help)
  153.     (prompt "Delete obsolete voice files?")
  154.     (default 1)
  155.   )
  156. )
  157.  
  158. (if (= mybool 1)
  159.   (execute "avm:deletevoicefiles")
  160. )
  161.  
  162. (complete 90)
  163.  
  164.  
  165. ; **************************************************************************
  166. ; **************************************************************************
  167. ; **************************************************************************
  168.  
  169.  
  170. (startup "AVM Suite"
  171.   (prompt "Adding the required ASSIGNS to your user-startup.")
  172.     (help @startup-help)
  173.     (command "assign avm: \"" avmdest "\"\n")
  174.     (command "assign avmrexx: \"avm:rexx\"\n")
  175.     (command "assign avmtemp: \"t:\"\n")
  176. )
  177.  
  178. (complete 100)
  179.  
  180.  
  181. ; **************************************************************************
  182. ; **************************************************************************
  183. ; **************************************************************************
  184.  
  185. (exit)
  186.